home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
051-075
/
disk_070
/
logo
/
logo.5
< prev
next >
Wrap
Text File
|
1992-05-06
|
738b
|
45 lines
;
;this program was copied directly, with one minor change, from the
;Sept. 1986 issue of Byte magazine, P. 14. Due to Mr. Mark D. Widome.
;
to hilbert :order :size
penup
setpos [200 30] ;this is the only change, to adjust for screen size
setheading 180
pendown
curvright :order
end
to curvright :order
if :order =0 [stop]
left 90
curvleft :order-1
forward :size
right 90
curvright :order-1
forward :size
curvright :order-1
right 90
forward :size
curvleft :order-1
left 90
end
to curvleft :order
if :order = 0 [stop]
right 90
curvright :order-1
forward :size
left 90
curvleft :order-1
forward :size
curvleft :order-1
left 90
forward :size
curvright :order-1
right 90
end
to demo
cs pd hilbert 6 2
end